home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8410.d64
/
hc 1520 farbig
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
111 lines
10 REM MASCHINENSPRACHEHARDCOPYROUTINE
20 REM 1520/C64
30 REM (C) 13.6.1984
40 REM BEI
50 REM KLAUS SCHNEIDER
60 REM BAHNHOFSTR. 5
70 REM 493 DETMOLD
80 REM
90 REM *********** EINGABE ************
100 REM
110 PRINT CHR$(147)
120 PRINT " SOLL DIE KOPIE MEHRFARBIG WERDEN (J/N)"
130 GET A$ : IF A$="" THEN 130
140 IFA$="J"THENPOKE1000,1:PRINT" JA":G=3
150 IFA$="N"THENPOKE1000,0:PRINT" NEIN":G=1
160 FORI=1TOG
170 PRINT" BITTE GEBEN SIE DIE";I;"[157]. FARBE (0-3) AN!"
180 GET B$ : IF B$<"0" OR B$>"3" THEN 180
190 POKE1000+I,VAL(B$):PRINT" "+B$
200 PRINT
210 NEXTI
220 REM
230 REM ****** TEST AUF ROUTINE *******
240 REM
250 FOR I=0 TO 10
260 READ A
270 B=PEEK(24576+I)
280 IF B<>A THEN 310
290 NEXT I
300 GOTO 440
310 RESTORE
320 REM
330 REM ****** POKEN DER ROUTINE ******
340 REM
350 PRINT CHR$(147)
360 PRINT TAB(13) "BITTE WARTEN"
370 FOR I=0 TO 825
380 READ A
390 C=C+A
400 POKE 24576+I,A
410 NEXT I
420 IF C<>87544 THEN PRINT " FEHLERHAFTE DATEN !!!" : END
440 REM
450 REM ***** EINGABE DER ADRESSE *****
460 REM
470 PRINT CHR$(147)
480 PRINT " BITTE GEBEN SIE DIE STARTADRESSE DER "
490 PRINT
500 INPUT " GRAFIK EIN! ";A
510 B=INT(A/256)
520 POKE 24647,B : POKE 24640,A-B*256
530 REM
540 REM ***** STARTEN DER ROUTINE *****
550 REM
560 SYS 6*4096
570 PRINT CHR$(147)
580 REM
590 REM ****** GGF. WIEDERHOLUNG ******
600 REM
610 PRINT " WOLLEN SIE NOCH EINE KOPIE (J/N) ?"
620 GET A$ : IF A$="" THEN 620
630 IF A$<>"J" THEN END
640 PRINT
650 PRINT " MIT DENSELBEN PARAMETERN (J/N) ?"
660 GET A$ : IF A$="" THEN 660
670 IF A$<>"J" THEN RUN
680 GOTO 560
690 REM
700 REM ********** DIE DATEN **********
710 REM
720 DATA 162,0,142,14,220,120,134,183,232,134,184,134,185,162,6,134,186,32,192
730 DATA 255,162,2,134,184,134,185,162,0,134,183,162,6,134,186,32,192,255,162
740 DATA 0,142,64,3,142,65,3,142,67,3,142,70,3,142,71,3,142,72,3,142,73,3,142
750 DATA 76,3,162,0,134,247,142,148,97,162,224,134,248,142,152,97,162,1,142
760 DATA 75,3,162,208,142,163,96,142,215,96,162,2,32,201,255,173,233,3,24,105
770 DATA 48,32,210,255,169,13,32,210,255,32,204,255,169,52,133,1,160,0,177,247
780 DATA 162,55,134,1,72,24,165,247,105,8,144,2,230,248,133,247,173,232,3,240
790 DATA 56,104,162,0,142,74,3,10,46,74,3,10,46,74,3,72,170,174,74,3,236,75
800 DATA 3,208,3,32,0,98,238,73,3,238,65,3,208,3,238,64,3,238,65,3,208,3,238
810 DATA 64,3,173,73,3,201,4,208,203,76,238,96,104,162,0,142,74,3,24,10,46,74
820 DATA 3,72,173,74,3,205,75,3,208,3,32,0,98,238,73,3,238,65,3,208,3,238,64
830 DATA 3,173,73,3,201,8,208,215,162,0,142,73,3,104,238,72,3,173,72,3,201,40
840 DATA 176,3,76,112,96,173,76,3,240,3,32,0,98,238,67,3,173,78,3,141,65,3,173
850 DATA 77,3,141,64,3,32,0,98,162,0,142,72,3,142,64,3,142,65,3,142,76,3,169
860 DATA 208,141,163,96,141,215,96,198,248,165,247,56,233,63,176,2,198,248,133
870 DATA 247,238,71,3,173,71,3,201,8,240,3,76,112,96,162,0,142,71,3,230,248
880 DATA 165,247,24,105,56,144,2,230,248,133,247,238,70,3,173,70,3,201,25,240
890 DATA 3,76,112,96,32,204,255,173,232,3,208,3,76,246,97,238,75,3,173,75,3
900 DATA 201,4,240,119,162,0,142,70,3,142,67,3,142,64,3,142,65,3,142,77,3,142
910 DATA 78,3,162,0,134,247,162,224,134,248,162,1,32,201,255,162,0,138,72,189
920 DATA 231,97,32,210,255,104,170,232,224,9,208,241,162,1,32,201,255,162,0
930 DATA 138,72,189,240,97,32,210,255,104,170,232,224,6,208,241,162,2,32,201
940 DATA 255,173,75,3,56,233,1,168,185,233,3,24,105,48,32,210,255,169,13,32
950 DATA 210,255,32,204,255,76,112,96,77,44,48,44,45,50,48,49,13,77,44,48,44
960 DATA 48,13,32,47,243,169,1,141,14,220,88,96,173,64,3,72,173,65,3,72,173
970 DATA 67,3,72,162,0,142,67,3,142,68,3,142,69,3,201,100,144,8,233,100,238
980 DATA 67,3,76,23,98,201,10,144,8,233,10,238,68,3,76,35,98,201,1,144,8,233
990 DATA 1,238,69,3,76,47,98,173,65,3,174,64,3,240,17,162,2,142,64,3,162,5,142
1000 DATA 65,3,232,142,66,3,76,95,98,162,0,142,64,3,142,65,3,142,66,3,201,100
1010 DATA 144,8,238,64,3,233,100,76,95,98,201,10,144,8,238,65,3,233,10,76,107
1020 DATA 98,201,1,144,8,238,66,3,233,1,76,119,98,173,65,3,24,105,8,141,65,3
1030 DATA 173,66,3,201,10,144,8,233,10,141,66,3,238,65,3,173,65,3,201,10,144
1040 DATA 11,233,10,141,65,3,238,64,3,76,155,98,162,1,32,201,255,173,76,3,240
1050 DATA 8,169,68,32,210,255,76,196,98,169,77,32,210,255,169,44,32,210,255,173
1060 DATA 64,3,24,105,48,32,210,255,173,65,3,24,105,48,32,210,255,173,66,3,24
1070 DATA 105,48,32,210,255,169,44,32,210,255,169,45,32,210,255,173,67,3,24,105
1080 DATA 48,32,210,255,173,68,3,24,105,48,32,210,255,173,69,3,24,105,48,32,210
1090 DATA 255,169,13,32,210,255,104,141,67,3,104,141,65,3,104,141,64,3,173,163
1100 DATA 96,73,32,141,163,96,141,215,96,173,76,3,73,1,141,76,3,173,65,3,141
1110 DATA 78,3,173,64,3,141,77,3,96